   4 :return 
   5 .TOUCH TONE SIMULATE
   6 .CHUCK THOMKA 28AP79
  10 clear 
  20 A=0
  30 NT=3;N=KP
  40 if N=116goto 110
  50 if N=105goto 10
  60 if N=31A=A-1;goto 90
  65 if ((N>47)+(N<58))-((N>64)+(N<69))-(N=42)-(N=35)goto 70
  67 goto 30
  70 A=A+1
  80 @(A)=N
  90 TV=N
 100 goto 30
 110 NT=0;print 
 120 for D=1to A
 130 TV=@(D)
 140 gosub 252+@(D)
 150 &(17)=C;&(18)=R
 160 &(16)=4;&(22)=255
 170 for T=1to 75
 180 next T
 190 &(22)=0
 200 next D
 210 goto 30
 287 C=119;R=188;return 
 294 C=146;R=188;return 
 300 C=132;R=188;return 
 301 C=146;R=254;return 
 302 C=132;R=254;return 
 303 C=119;R=254;return 
 304 C=146;R=230;return 
 305 C=132;R=230;return 
 306 C=119;R=230;return 
 307 C=146;R=208;return 
 308 C=132;R=208;return 
 309 C=119;R=208;return 
 317 C=109;R=253;return 
 318 C=109;R=230;return 
 319 C=109;R=208;return 
 320 C=109;R=188;return 
:return ;run 
